home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 11
/
Cream of the Crop 11-1.iso
/
windows
/
wb32_96a.zip
/
DEFAULT.WB_
< prev
next >
Wrap
Text File
|
1994-08-28
|
664b
|
23 lines
; DEFAULT.WBT
; Whne WinBatch is executed without any parameters, it attempts to locate
; and execute this DEFAULT.WBT file.
ActWin=WinGetActive() ;Get currently active Window
VerWB=Version() ;Get Version numbers for title
VerDLL=VersionDLL()
xyzzyTitle=strcat("WinBatch ",VerWB," DLL ",VerDll)
while @TRUE
BoxShut()
WinTitle("","WinBatch")
xyzzywbtfile=AskFileName(xyzzyTitle,"","WinBatch (*.WBT)|*.WBT|","*.WBT",1)
if xyzzywbtfile!="" then call(xyzzywbtfile,"")
else break
endwhile
exit
:cancel
display(1,"Exiting","Default.wbt")
exit ;Bye Bye